3 ws$(1)=" wenn du in den krieg ziehst, wirst du ein grosses heer vernichten":ws$(2)=" du wirst einen grossen sieg erleben ":ws$(3)=" die schlacht wird g]nstig verlaufen ":ws$(4)=" es werden viele tapfere m[nner sterben"
14 print"[147] von welcher provinz m\chten sie":print" eine milit[r-]bersicht ?":gosub423:print" milit[r-]bersicht der provinz":print" ";np$(p);tab(27);m$(m);ja:print" legion[re :";tab(23);le(p):print" s\ldner :";tab(23);so(p)
30 poke53281,1:poke53280,6:print"[144]";:sys1200:print" milit[r":printtab(2);" sie rufen ihren":print" obersten feldherrn.":print" dieser erscheint":printtab(2);" sogleich in ihrem":printtab(2);" palast und ruft :":print:print" ave, caesar ";n$(sp);"!":print:print:print" wollen sie":print
32 print"[147] armeest[rke":print:print" sie haben folgende ":print" m\glichkeiten :":print" ":print" legion[re rekrutieren":print" s\ldner anwerben ":print" soldaten entlassen":print" bogensch]tzen ausbilden":print" katapulte kaufen":print" moral steigern"
33 print" karte betrachten":print" _^menue":print:print" ihr kapital betr[gt":print" ";kp(sp);"aurei !":print"[145][145][145]";:i=14:j=7:gosub449:on(peek(214)-6)goto34,40,44,51,180,56,60,30
34 print"":print"in welcher provinz wollen sie ":print" rekrutieren ?";:gosub423:print"[145][145][145][145][145]":print" wieviele legion[re wollen sie":print" rekrutieren ?";:gosub398:s=sl:ifs=0then32
35 ifre(p)+sl>5000thenprint" keine derartige rekrutierung m\glich !":goto38
36 ifgr(p)+s>0.2*bv(p)thenprint" keine derartige rekrutierung m\glich !":goto38
37 goto39
38 wait56320,16,16:print"":goto32
39 le(p)=le(p)+s:re(p)=re(p)+sl:gr(p)=gr(p)+sl:mo(p)=int((mo(p)*(le(p)+so(p)+bo(p)-sl)+5*sl)/(le(p)+so(p)+bo(p))):print" in dieser provinz befinden sich nun":print" ";le(p);" legion[re !":wait56320,16,16:goto32
40 print"":print"f]r welche provinz wollen sie ":print" anwerben ?";:gosub423:print"[145][145][145]":print" wieviele s\ldner wollen sie f]r ":print" 4 aurei/kopf anwerben";:gosub398:s=sl:ifint(kp(sp)-s*4+.5)<0then29
55 print" in dieser provinz befinden sich nun":print" ";bo(p);"bogensch]tzen und";k(p);"katapulte !":wait56320,16,16:goto32
56 print"":print"in welcher provinz wollen sie ":print" die moral steigern ?";:gosub423:print"[145][145][145][145] die moral hier ist ";mo$(mo(p)):print" wieviel geld wollen sie f]r die armee":print" zus[tzlich ausgeben";:gosub398:poke781,18:sys59903:ifkp(sp)-sl<0then32
63 print"":sys1200:print" aus welcher provinz wollen sie ":print" truppen ziehen ?";:gosub423:p1=p:print" in welche provinz wollen sie":print" truppen ziehen ?";:gosub423:p2=p:x=1
68 print" wieviele legion[re wollen sie nach ":print" ";left$(np$(p2),10);" ziehen ?";:gosub398:ifsl>le(p1)thenprint" unm\glich ":goto77
69 ifsl>le(p1)-bl(p1)thenprint" unm\glich":goto77
70 le(p1)=le(p1)-sl:le(p2)=le(p2)+sl:bl(p2)=bl(p2)+sl:print" wieviele s\ldner wollen sie nach ":print" ";left$(np$(p2),10);" ziehen ?";:gosub398:ifsl>so(p1)thenprint" unm\glich ":goto77
71 ifsl>so(p1)-bs(p1)thenprint" unm\glich":goto77
72 so(p1)=so(p1)-sl:so(p2)=so(p2)+sl:bs(p2)=bs(p2)+sl:print" wieviele sch]tzen wollen sie nach ":print" ";left$(np$(p2),10);" ziehen ?";:gosub398:ifsl>bo(p1)thenprint" unm\glich ":goto77
73 ifsl>bo(p1)-bb(p1)thenprint" unm\glich":goto77
74 bo(p1)=bo(p1)-sl:bo(p2)=bo(p2)+sl:bb(p2)=bb(p2)+sl:print" wieviele katapulte wollen sie nach ":print" ";left$(np$(p2),10);" ziehen ?";:gosub398:ifsl>k(p1)thenprint" unm\glich ":goto77
75 ifsl>k(p1)-bk(p1)thenprint" unm\glich":goto77
76 k(p1)=k(p1)-sl:k(p2)=k(p2)+sl:bk(p2)=bk(p2)+sl
77 wait56320,16,16:print"[147]":goto30
78 print"":sys1200:print" in welcher provinz wollen sie die":print" grenzen befestigen ?";:gosub423:print"[145][145][145]":print"die grenzbefestigung in dieser provinz":print" ist ";gb$(gb(p));:fort=1to30-len(gb$(gb(p))):print" ";:next:print:print" wieviel geld wollen sie f]r neue "
91 print:print" aus welcher provinz wollen sie ":print" angreifen":gosub423:p1=p:gosub378:kk=3*el+2*es+4*eb+20*ek:ifkk=0then29
92 print" der feldzug l[uft !!!":forx=1to2000:next:kk=kk/100000*(15+mo(p))/20:y=int(rnd(0)*2)+1:kk=kk*y:ifkk<.2thena=1:n=-2:g=-2:goto96
93 ifkk<.4thena=2:n=-1:goto96
94 ifkk<.8thena=3:goto96
95 a=4:n=2:s=1
96 gosub394:print"[147] das ergebnis ihres feldzuges":print:print:fi$="barbar"+str$(a):open2,8,2,fi$+",s,r":input#2,az:fort=1to2*az-1:get#2,a$:ifa$=chr$(13)thennext
107 print"[147] von welcher provinz aus wollen sie":print" angreifen ?":gosub423:p1=p:print:print:print" welche provinz wollen sie":print" angreifen ?":gosub436:p2=p:x=1:k1=0:k2=0
108 ifp1=a(x,p2)then111
109 ifa(x,p2)=0then174
110 x=x+1:goto108
111 ifep(p2)=0then114
112 print:print" caesar ";n$(ep(p2));", wollen sie ":j$="j":print" den angreifer bestechen ? ";j$;:gosub408:print:print:ifj$="n"then114
113 print" wieviel geld wollen sie ":print" ihm geben ?";:gosub398:ifsl<=kp(ep(p2))then82
199 print"[147] ern[hrung des p\bels":print" steuersatz [ndern":print" stimmung in eigener provinz":print" stimmung in fremder provinz":print" _^menue":i=7:j=3:gosub449:a=peek(214)-2:onagoto200,206,209,213,197
200 print"":print" in dieser provinz leben";po(p)"":print" ern[hrungsbed]rftige !":x$=str$(po(p)):x=len(x$):fori=xto1step-1:su$(i)=mid$(x$,x+1-i,1):sl(i)=val(su$(i)):ifsu$(i)=""orsu$(i)=" "thensu$(i)="0":sl(i)=0
201 next:ts=33:l=1:sl=0:print" jeder ben\tigt einen scheffel korn ":print" im monat ! ":print:print" bestimmen sie die menge,":print" die ausgegeben werden soll:";tab(29);"00000":print"[145]";tab(35-x);right$(x$,x-1):gosub399:goto204
202 ifpeek(56320)=111then199
203 goto202
204 ifsl>ko(sp)thenprint" so viel korn haben sie nicht vorr[tig !":goto202
205 ko(sp)=ko(sp)-sl:bn(p)=bn(p)+sl:pp=1:goto199
206 print"":print" der steuersatz in dieser provinz ":print" betr[gt";sn(p);"% !":j$="j":print" wollen sie dies [ndern ? ";j$;:gosub408:ifj$="n"then199
207 print:print:print" geben sie den neuen ":print" steuersatz an ";:gosub398:ifsl>100thenprint" unm\glich !!":goto202
208 sn(p)=sl:goto199
209 print" die stimmung in dieser provinz ist":print" ";mo$(sv(p));" !":print:j$="j":print" wollen sie propaganda ( 10000 aurei )":print" betreiben ?";j$;:gosub408:ifj$="n"then199
213 print" in welcher provinz der feinde wollen":a=p:print" sie das volk aufwiegeln ?":gosub436:print:print" wollen sie in dieser provinz propa-":j$="j":i=p:p=a:print" ganda betreiben ( 20000 aurei ) ? ";j$;:gosub408:ifj$="n"then199
218 print" in dieser provinz besitzen sie":print" bereits";zg(p);"bauernh\fe .":print:print" das anlegen eines hofes kostet ":print" 500 aurei !":print" wie viele bauernh\fe wollen sie":print" anlegen ";:gosub398:ifsl*500>kp(sp)thenprint:print" zuwenig geld !!":goto229
219 kp(sp)=kp(sp)-sl*500:zg(p)=zg(p)+sl:goto217
220 print" in dieser provinz besitzen sie":print" bereits";zb(p);"bergwerke .":print:print" das anlegen eines bergwerks kostet ":print" 6000 aurei !":print" wie viele bergwerke wollen sie":print" errichten ";:gosub398:ifsl*6000>kp(sp)thenprint:print" zuwenig geld !!":goto229
221 kp(sp)=kp(sp)-sl*6000:zb(p)=zb(p)+sl:goto217
222 print" die infrastruktur dieser provinz ist":print" ";gb$(is(p)):print:print" wollen sie die infrastruktur ":j$="j":print" verbessern (5000 aurei) ? ";j$;:gosub408:ifj$="n"then217
223 ifkp(sp)<5000thenprint:print" zu wenig geld !!":goto229
226 print" sie bitten einen reichen kaufmann um":print" ein darlehen.":print" wieviel aurei wollen sie sich ":print" borgen ?";:gosub398:ifsc(sp)+sl>10000*zp(sp)thenprint:print" der kaufmann gibt ihnen nichts mehr !"
290 print"[147] monats]bersicht der provinz":print" ";np$(p);tab(26);m$(m);ja:print" ausgaben f]r gutsh\fe";tab(25);ag(p):print" ausgaben f]r bergwerke";tab(25);ab(p):print" milit[rausgaben";tab(25);ma(p):print:print" einnahmen der bergwerke";tab(25);ib(p):print" steuereinnahmen";tab(25);se(p)
291 print:print" zahl der gutsh\fe";tab(25);zg(p):print" zahl der bergwerke";tab(25);zb(p):print" stimmung im volk:";tab(26);mo$(sv(p)):print" stimmung im milit[r:";tab(26);mo$(mo(p)):print" abgegebenes korn:";tab(25);bn(p):print" zahl des proletariats";tab(25);po(p):print" bev\lkerung";tab(25);bv(p)
293 print"[147] da in dieser provinz keine truppen":print" stationiert sind, k\nnen sie mit ":print" ihren soldaten ungehindert in deren":print" hauptstadt einmarschieren. ":print" dort erfahren sie, dass sich der bis-":print" herige statthalter bereits abgesetzt"
294 print" hat. sie bestimmen einen neuen statt-":print" halter, der die provinz von nun an":print" in ihrem sinne verwalten wird.":wait56320,16,16:sys1966:goto160
318 print" in der provinz ";np$(p):print" ist folgendes passiert :":print:fi$="ereig"+str$(i):open2,8,2,fi$+",s,r":input#2,az:fort=1to2*az-1:get#2,a$:ifa$=chr$(13)thennext
338 print" das volk (der p\bel) hat den palast":print" gest]rmt und ihre verwalter umge-":print" bracht !":t=int(ko(sp)/zp(sp)):s=int(kp(sp)/zp(sp)):ko(sp)=ko(sp)-t:kp(sp)=kp(sp)-s:print" die kornspeicher wurden gepl]ndert."
339 print" insgesamt wurden";t;"scheffel":print" gestohlen !":print" aus ihrer kasse wurden";s;"aurei":print" entwendet !":zp(sp)=zp(sp)-1:print" die provinz hat sich f]r unabh[ngig":print" erkl[rt ,und auch das milit[r ":print" ist zur neuen regierung ]berge-":print" laufen !!"
342 print" das milit[r hat die macht in ihrer":h=0:print" provinz ]bernommen und den obersten":print" befehlshaber zum neuen herrscher aus-":print" gerufen. dieser hat erkl[rt, dass er":print" demjenigen kaiser die provinz ]ber-"
343 print" l[sst, der ihm und seiner armee das ":print" meiste zahlt !":wait56320,16,16:gosub393:i=1
344 ifep(hp(i))<>iorex(i)=0theni=i+1:goto344
345 t$=chr$(34):print"[147] ";t$;"caesar ";n$(i);",":print" mindestgebot sind 5000 aurei,":print" sonst bekommt der alte eigent]mer":print" die provinz zur]ck !";t$:s=5000
355 print"[147] caesar ";n$(ep(p));",":print:print" hiermit haben sie ihre hauptprovinz ":print" verloren. deshalb ist das spiel f]r":print" sie nun zuende !":zs=zs-1:ifep(p)<>spthen378
356 print:print" ihre anderen provinzen bleiben selb- ":print" st[ndig.":ex(ep(p))=0:ifzs=1thenep(p)=0:goto388
360 print"[147] in diesem monat wird geerntet !":k=0:forp=1to16:ifep(p)<>spthen362
361 k=k+30*int(sqr(fb(p))*zg(p)*(rnd(0)*1.2+1))
362 next:k=k*10:ko(sp)=ko(sp)+k:print" in ihren provinzen haben sie insge-":print" samt";k;" scheffel korn geerntet !":wait56320,16,16:print"[147]":goto312
363 sys1624:poke53280,6:poke53281,1:print"[144][147] ]bersicht/spielstand":print" spielstand":print" spiel laden":print" spiel speichern":print" _^menue":i=9:j=6:gosub449:a=peek(214)-5:onagoto364,370,368,8
364 fori=1to4:ifep(hp(i))<>ithen367
365 print"[147] spielstand im ";m$(m);" des jahres";ja:print" caesar ";n$(i):print" kapital";tab(15);kp(i);" aurei":print" zahl d. prov.";tab(15);zp(i):print" kredtite";tab(15);sc(i);" aurei":print" erzmenge";tab(15);er(i);" zentner":print" kornvorrat";tab(15);ko(i);" scheffel"
370 forp=1to10:next:fi$="":print" filename";:gosub413:gosub394:open2,8,2,fi$+",s,r":input#2,m:ifst<>0thenclose2:print:print" datei nicht auf diskette !":goto375